body{
background: linear-gradient(90deg, rgb(169, 205, 232) 0%, rgb(173, 158, 217) 100%);
font-family: sans-serif;
text-align: justify;
}
h1,h2{
text-align: center;
font-variant: small-caps;
background-color: #014084
color: white
}

MY FIRST MEME

The meme below shows my true mental state after the start of school :)

p{text-shadow: 5px 5px 10px rgba(16, 32, 245, 0.4);
color: #1020f5;
}
library(magick)
## Linking to ImageMagick 6.9.12.3
## Enabled features: cairo, fontconfig, freetype, heic, lcms, pango, raw, rsvg, webp
## Disabled features: fftw, ghostscript, x11
#input two pictures for my meme
cute <- image_scale(image_read('https://inews.gtimg.com/newsapp_bt/0/12566009112/1000'),250)


mad_cat <- image_scale(image_read('https://inews.gtimg.com/newsapp_bt/0/12566009118/1000'),250)

# create two blank image and customs
image_black <- image_blank(width = 250 , height = 250 , color = "#000000") %>%
  image_annotate(text = "Assignment\n all done", color = "#FFFFFF",size = 35 , font = "Impact", gravity = "center")
image_black

image_white <- image_blank(width = 250 , height = 250 , color = "#FFFFFF") %>%
  image_annotate(text = " When 7 Assignments\n due tomorrow" , color = "#000000",size = 20 , font = "Impact" , gravity = "center")
image_white

# combine the pictures
first_part <- image_append(c(image_black, cute))
first_part

second_part <- image_append(c(image_white, mad_cat))
second_part

# the whole meme
top_row <- c(first_part,second_part)
top_row

final_meme <- image_append(top_row, stack = TRUE)
final_meme

final_final <- (final_meme)


image_write(final_final, "my_meme.png")

MY ANIMATED GIF

In this motion picture, I used 4 cats holding flowers in different positions as my material.

p{text-shadow: 5px 5px 10px rgba(16, 32, 245, 0.4);
color: #1020f5;
}
library(magick)

#input my four image for my animation

kitten_1 <- image_read("https://pic3.zhimg.com/80/v2-dd55c708843ae1191022386818dea176_1440w.webp") %>%
  image_resize("240x240!") %>%
  image_convert("png")
kitten_1

kitten_2 <- image_read("https://pic1.zhimg.com/80/v2-ebf1835b592f8f681ceb21ee19e6547c_1440w.webp") %>%
  image_resize("240x240!") %>%
  image_convert("png")
kitten_2

kitten_3 <- image_read("https://pic4.zhimg.com/80/v2-895d8ecd3a4230d850821912f6e5c327_1440w.webp")%>%
  image_resize("240x240!") %>%
  image_convert("png")
kitten_3

kitten_4 <- image_flop(kitten_2)
kitten_4

#combine all the frames
frames <- c(kitten_1,kitten_3,kitten_2,kitten_4)

# make a gif
animation_gif <- image_animate(frames, fps = 20)
animation_gif

animation_gif_2 <- image_morph(animation_gif,frames = 8)
animation_gif_2

image_write(animation_gif_2, "my_animation.gif")